﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.BR

Namespace Mantenimiento.Listados

    Public Class XRListArticulos
        Inherits JsonAbm

        Sub New()
            MyBase.New(Operador, Password, "XRCONSULTA", "App_Articulos_View", "descripcion")
            MyBase.lnk_nombreOperador = Common.Env.Operador
            'Graba tracking
            Me.lnk_Tracking = True
        End Sub

        Public Overrides Function List(Start As Integer, Limit As Integer, Orden As String, Filtro As String) As String
            Dim oFiltro As FiltroColeccion = FiltroColeccion.Parse(Filtro)
            If (Common.GrupoOperador.ID.Trim().ToUpper() = "PROVEEDOR") Then oFiltro.AgregarEQFilter("id_entidad", Common.EntidadOperador.ID)
            Return MyBase.List(Start, Limit, Orden, oFiltro.ToJSON())
        End Function
    End Class
End Namespace